1 Public Class FrmPURCHASEORDERDATA
2
3 Private Sub FrmPURCHASEORDERDATA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4 txtid.Text = ""
5 txtname.Text = ""
6 txtdesc.Text = ""
7 txtprice.Text = ""
8 txtqty.Text = ""
9 txtqty.Select()
10 FrmPURCHASEORDERLIST.ShowDialog()
11 End Sub
12
13 Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
14 Me.Close()
15 End Sub
16
17 Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
18 'MsgBox(FrmPURCHASEORDERADD.lstitems.Items.Count)
19 Dim i As Integer
20 If txtname.Text <> "" And txtdesc.Text <> "" And txtid.Text <> "" And txtprice.Text <> "" And txtqty.Text <> "" Then
21 If Not IsNumeric(txtqty.Text) Then
22 MsgBox("Quantity Should Be Numeric !!", MsgBoxStyle.Information)
23 Exit Sub
24 End If
25 With FrmPURCHASEORDERADD.lstitems
26 For i = 0 To .Items.Count - 1
27 If .Items(i).Text = txtid.Text Then
28 MsgBox("Stock details is already on the list !!", MsgBoxStyle.Information, "Sales and Inventory")
29 FrmPURCHASEORDERLIST.ShowDialog()
30 Exit Sub
31 End If
32 Next
33 .Items.Add(txtid.Text)
34 .Items((.Items.Count - 1)).SubItems.Add("")
35 .Items((.Items.Count - 1)).SubItems.Add(txtname.Text)
36 .Items((.Items.Count - 1)).SubItems.Add(txtdesc.Text)
37 ' .Items((.Items.Count - 1)).SubItems.Add(txtprice.Text)
38 ' .Items((.Items.Count - 1)).SubItems.Add(txtbarcode.Text)
39 .Items((.Items.Count - 1)).SubItems.Add(txtqty.Text)
40 ' .Items((.Items.Count - 1)).SubItems.Add(txtunit.Text)
41 If MsgBox("Do you want to add another data?", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Sales and Inventory") = MsgBoxResult.Yes Then
42 txtname.Text = ""
43 txtdesc.Text = ""
44 txtprice.Text = ""
45 txtbarcode.Text = ""
46 txtqty.Text = ""
47 txtunit.Text = ""
48 FrmPURCHASEORDERLIST.ShowDialog()
49 Else
50 Me.Close()
51 End If
52 End With
53 End If
54 End Sub
55
56 Private Sub txtqty_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty.TextChanged
57 txtqty.Text = str_Filter(txtqty, 48, 57, 0, 0)
58 End Sub
59 End Class